   1 .
   2 .
   3 .
   4 .SPIRALS
   5 .BY MATT GIWER
   6 NT=0
  10 clear 
 100 A=3
 200 B=rnd (2)
 210 C=rnd (2)
 800 X=B;Y=0
 810 line X,Y,4
 850 for D=1to 100
 900 X=X+B
 905 Y=Y+C
 907 if X>75goto 100
 908 if Y>35goto 100
 910 gosub 1050
 950 next D
 990 goto 100
1050 .M
1060 line X,Y,A
1070 line X,-Y,A
1090 line -X,-Y,A
1100 line -X,Y,A
1200 return 
9000 .M
:return ;run 
